home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group3 / OCXTERCF.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-07-30  |  14.8 KB  |  455 lines
  1. VERSION 4.00
  2. Begin VB.Form SimpleForm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Send Your Comments to Terckland Software"
  5.    ClientHeight    =   5550
  6.    ClientLeft      =   855
  7.    ClientTop       =   1455
  8.    ClientWidth     =   9750
  9.    Height          =   5925
  10.    Icon            =   "OCXTERCF.frx":0000
  11.    Left            =   810
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5550
  16.    ScaleWidth      =   9750
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1125
  19.    Width           =   9840
  20.    Begin VB.Frame Frame2 
  21.       Caption         =   "User Information:"
  22.       Height          =   3855
  23.       Left            =   120
  24.       TabIndex        =   25
  25.       Top             =   0
  26.       Width           =   9495
  27.       Begin VB.Frame Frame6 
  28.          Caption         =   "Mail System:"
  29.          Height          =   615
  30.          Left            =   240
  31.          TabIndex        =   33
  32.          Top             =   1440
  33.          Width           =   9135
  34.          Begin VB.OptionButton bMS1 
  35.             Caption         =   "Lotus cc:Mail"
  36.             Height          =   255
  37.             Left            =   120
  38.             TabIndex        =   11
  39.             Top             =   240
  40.             Width           =   1575
  41.          End
  42.          Begin VB.OptionButton bMS2 
  43.             Caption         =   "Lotus Notes"
  44.             Height          =   255
  45.             Left            =   1920
  46.             TabIndex        =   12
  47.             Top             =   240
  48.             Width           =   1215
  49.          End
  50.          Begin VB.OptionButton bMS4 
  51.             Caption         =   "Microsoft Exchange"
  52.             Height          =   255
  53.             Left            =   5280
  54.             TabIndex        =   14
  55.             Top             =   240
  56.             Width           =   1815
  57.          End
  58.          Begin VB.OptionButton bMS3 
  59.             Caption         =   "Microsoft Mail"
  60.             Height          =   255
  61.             Left            =   3600
  62.             TabIndex        =   13
  63.             Top             =   240
  64.             Width           =   1575
  65.          End
  66.          Begin VB.OptionButton bMS5 
  67.             Caption         =   "POP3/SMTP"
  68.             Height          =   255
  69.             Left            =   7560
  70.             TabIndex        =   15
  71.             Top             =   240
  72.             Value           =   -1  'True
  73.             Width           =   1335
  74.          End
  75.       End
  76.       Begin VB.Frame Frame5 
  77.          Caption         =   "Operating System:"
  78.          Height          =   615
  79.          Left            =   4920
  80.          TabIndex        =   32
  81.          Top             =   840
  82.          Width           =   4455
  83.          Begin VB.OptionButton bOS1 
  84.             Caption         =   "Win 3.1x"
  85.             Height          =   255
  86.             Left            =   240
  87.             TabIndex        =   8
  88.             Top             =   240
  89.             Width           =   1095
  90.          End
  91.          Begin VB.OptionButton bOS2 
  92.             Caption         =   "Win95"
  93.             Height          =   255
  94.             Left            =   1560
  95.             TabIndex        =   9
  96.             Top             =   240
  97.             Value           =   -1  'True
  98.             Width           =   855
  99.          End
  100.          Begin VB.OptionButton bOS3 
  101.             Caption         =   "Win NT 3.51"
  102.             Height          =   255
  103.             Left            =   2640
  104.             TabIndex        =   10
  105.             Top             =   240
  106.             Width           =   1455
  107.          End
  108.       End
  109.       Begin VB.Frame Frame4 
  110.          Caption         =   "Mail eXtension Version:"
  111.          Height          =   615
  112.          Left            =   240
  113.          TabIndex        =   31
  114.          Top             =   840
  115.          Width           =   4575
  116.          Begin VB.OptionButton bOCX16 
  117.             Caption         =   "OCX-16"
  118.             Height          =   255
  119.             Left            =   120
  120.             TabIndex        =   3
  121.             Top             =   240
  122.             Width           =   975
  123.          End
  124.          Begin VB.OptionButton bOCX32 
  125.             Caption         =   "OCX-32"
  126.             Height          =   255
  127.             Left            =   1080
  128.             TabIndex        =   4
  129.             Top             =   240
  130.             Value           =   -1  'True
  131.             Width           =   855
  132.          End
  133.          Begin VB.OptionButton bVBX 
  134.             Caption         =   "VBX"
  135.             Height          =   255
  136.             Left            =   2040
  137.             TabIndex        =   5
  138.             Top             =   240
  139.             Width           =   735
  140.          End
  141.          Begin VB.OptionButton bVCL16 
  142.             Caption         =   "VCL-16"
  143.             Height          =   255
  144.             Left            =   2760
  145.             TabIndex        =   6
  146.             Top             =   240
  147.             Width           =   855
  148.          End
  149.          Begin VB.OptionButton bVCL32 
  150.             Caption         =   "VCL-32"
  151.             Height          =   255
  152.             Left            =   3600
  153.             TabIndex        =   7
  154.             Top             =   240
  155.             Width           =   855
  156.          End
  157.       End
  158.       Begin VB.Frame Frame3 
  159.          Caption         =   "Note Part:"
  160.          Height          =   1575
  161.          Left            =   240
  162.          TabIndex        =   30
  163.          Top             =   2160
  164.          Width           =   9015
  165.          Begin VB.TextBox szNote 
  166.             Height          =   1215
  167.             Left            =   120
  168.             MultiLine       =   -1  'True
  169.             TabIndex        =   16
  170.             Text            =   "OCXTERCF.frx":0442
  171.             Top             =   240
  172.             Width           =   8775
  173.          End
  174.       End
  175.       Begin VB.TextBox szCompany 
  176.          Height          =   285
  177.          Left            =   4200
  178.          TabIndex        =   1
  179.          Text            =   "UserCompany"
  180.          Top             =   360
  181.          Width           =   1335
  182.       End
  183.       Begin VB.TextBox szEmail 
  184.          Height          =   285
  185.          Left            =   7200
  186.          TabIndex        =   2
  187.          Text            =   "YourE-mail@domain.com"
  188.          Top             =   360
  189.          Width           =   2175
  190.       End
  191.       Begin VB.TextBox szName 
  192.          Height          =   285
  193.          Left            =   1200
  194.          TabIndex        =   0
  195.          Text            =   "UserName"
  196.          Top             =   360
  197.          Width           =   1695
  198.       End
  199.       Begin VB.Label Label4 
  200.          Caption         =   "Mail X Version:"
  201.          Height          =   255
  202.          Left            =   240
  203.          TabIndex        =   29
  204.          Top             =   1200
  205.          Width           =   1215
  206.       End
  207.       Begin VB.Label Label3 
  208.          Caption         =   "Company Name:"
  209.          Height          =   255
  210.          Left            =   3000
  211.          TabIndex        =   28
  212.          Top             =   360
  213.          Width           =   1215
  214.       End
  215.       Begin VB.Label Label2 
  216.          Caption         =   "Your e-mail Address:"
  217.          Height          =   255
  218.          Left            =   5640
  219.          TabIndex        =   27
  220.          Top             =   360
  221.          Width           =   1575
  222.       End
  223.       Begin VB.Label Label1 
  224.          Caption         =   "Your Name:"
  225.          Height          =   255
  226.          Left            =   240
  227.          TabIndex        =   26
  228.          Top             =   360
  229.          Width           =   1095
  230.       End
  231.    End
  232.    Begin VB.Frame Frame1 
  233.       Caption         =   "Server: Configuration:"
  234.       Height          =   1455
  235.       Left            =   120
  236.       TabIndex        =   17
  237.       Top             =   3960
  238.       Width           =   5775
  239.       Begin VB.CommandButton Command7 
  240.          Caption         =   "SET Server"
  241.          Height          =   375
  242.          Left            =   4200
  243.          TabIndex        =   22
  244.          Top             =   840
  245.          Width           =   1335
  246.       End
  247.       Begin VB.CommandButton Command8 
  248.          Caption         =   "SET Server"
  249.          Height          =   375
  250.          Left            =   4200
  251.          TabIndex        =   21
  252.          Top             =   360
  253.          Width           =   1335
  254.       End
  255.       Begin VB.TextBox szSMTP 
  256.          Height          =   285
  257.          Left            =   1560
  258.          TabIndex        =   19
  259.          Top             =   360
  260.          Width           =   2415
  261.       End
  262.       Begin VB.TextBox szPOP 
  263.          Height          =   285
  264.          Left            =   1560
  265.          TabIndex        =   20
  266.          Top             =   840
  267.          Width           =   2415
  268.       End
  269.       Begin VB.Label Label5 
  270.          Caption         =   "POP Server:"
  271.          Height          =   255
  272.          Left            =   240
  273.          TabIndex        =   24
  274.          Top             =   840
  275.          Width           =   975
  276.       End
  277.       Begin VB.Label Label6 
  278.          Caption         =   "SMTP Server:"
  279.          Height          =   255
  280.          Left            =   240
  281.          TabIndex        =   23
  282.          Top             =   360
  283.          Width           =   1215
  284.       End
  285.    End
  286.    Begin VB.CommandButton Command1 
  287.       Caption         =   "Submit Message to ""Terckland Software"""
  288.       Height          =   495
  289.       Left            =   6000
  290.       TabIndex        =   18
  291.       Top             =   3960
  292.       Width           =   3255
  293.    End
  294.    Begin Mailx16Lib.MForm MForm1 
  295.       Left            =   7680
  296.       Top             =   4680
  297.       _Version        =   65542
  298.       _ExtentX        =   2170
  299.       _ExtentY        =   500
  300.       _StockProps     =   0
  301.       MXFormName      =   "FormTag1"
  302.    End
  303.    Begin Mailx16Lib.MSess MSess1 
  304.       Left            =   9000
  305.       Top             =   4440
  306.       _Version        =   65542
  307.       _ExtentX        =   900
  308.       _ExtentY        =   900
  309.       _StockProps     =   0
  310.       LogonUI         =   0   'False
  311.       Mail_Type       =   3
  312.       User            =   "Mail_X_User"
  313.       DownLoadMsg     =   0   'False
  314.    End
  315.    Begin Mailx16Lib.MMsg MMsg1 
  316.       Left            =   7080
  317.       Top             =   4440
  318.       _Version        =   65542
  319.       _ExtentX        =   900
  320.       _ExtentY        =   900
  321.       _StockProps     =   0
  322.       MarkAsRead      =   0   'False
  323.       BindString      =   "MSess1"
  324.    End
  325.    Begin Mailx16Lib.MReci MReci1 
  326.       Left            =   6240
  327.       Top             =   4440
  328.       _Version        =   65542
  329.       _ExtentX        =   900
  330.       _ExtentY        =   900
  331.       _StockProps     =   0
  332.       BindString      =   "MMsg1"
  333.    End
  334.    Begin VB.Label Label8 
  335.       Caption         =   "July 1996"
  336.       Height          =   255
  337.       Left            =   6120
  338.       TabIndex        =   35
  339.       Top             =   5040
  340.       Width           =   3375
  341.    End
  342.    Begin VB.Label Label7 
  343.       Caption         =   "Terckland Software 1996"
  344.       Height          =   255
  345.       Left            =   6120
  346.       TabIndex        =   34
  347.       Top             =   4680
  348.       Width           =   3375
  349.    End
  350. Attribute VB_Name = "SimpleForm"
  351. Attribute VB_Creatable = False
  352. Attribute VB_Exposed = False
  353. Private Sub Command1_Click()
  354.     If szEmail.Text = "" Then
  355.         MsgBox "Invalid e-Mail Address"
  356.         Exit Sub
  357.     End If
  358.     If szName.Text = "" Then
  359.         MsgBox "Invalid User Name"
  360.         Exit Sub
  361.     End If
  362.     If MSess1.Logon = True Then
  363.         MReci1.Clear
  364.         MReci1.Action = ACTION_INSERTCUSTOM
  365.         MReci1.RecipientName = "73000.1661@compuserve.com"
  366.         MReci1.RecipientAddress = "73000.1661@compuserve.com"
  367.         MReci1.RecipientClass = 1
  368.         MSess1.ReturnAddress = szEmail.Text
  369.         MSess1.RealName = szName.Text
  370.       
  371.         MMsg1.Action = ACTION_NEW
  372.         MMsg1.WorkingMsg = COMPOSE_MSG
  373.         MReci1.Action = ACTION_RECIP_SET
  374.         MMsg1.Subject = "Mail eXtension Technical Support Version 1.60"
  375.         szFinalText = szCompany.Text + " Wrote:" + Chr(13) + Chr(10) + "Mail X Version:"
  376.         If bOCX16.Value = True Then
  377.             szFinalText = szFinalText + "OCX16" + Chr(13) + Chr(10)
  378.         End If
  379.         If bOCX32.Value = True Then
  380.             szFinalText = szFinalText + "OCX32" + Chr(13) + Chr(10)
  381.         End If
  382.         If bVCL16.Value = True Then
  383.             szFinalText = szFinalText + "VCL16" + Chr(13) + Chr(10)
  384.         End If
  385.         If bVCL32.Value = True Then
  386.             szFinalText = szFinalText + "VCL32" + Chr(13) + Chr(10)
  387.         End If
  388.         If bVBX.Value = True Then
  389.             szFinalText = szFinalText + "VBX" + Chr(13) + Chr(10)
  390.         End If
  391.         
  392.         szFinalText = szFinalText + "Operating System: "
  393.         If bOS1.Value = True Then
  394.             szFinalText = szFinalText + "Windows 3.1" + Chr(13) + Chr(10)
  395.         End If
  396.         
  397.         If bOS2.Value = True Then
  398.             szFinalText = szFinalText + "Windows 95" + Chr(13) + Chr(10)
  399.         End If
  400.         
  401.         If bOS3.Value = True Then
  402.             szFinalText = szFinalText + "Windows NT 3.51" + Chr(13) + Chr(10)
  403.         End If
  404.         
  405.         szFinalText = szFinalText + "Mail System: "
  406.         If bMS1.Value = True Then
  407.             szFinalText = szFinalText + "Lotus cc:Mail" + Chr(13) + Chr(10)
  408.         End If
  409.         
  410.         If bMS2.Value = True Then
  411.             szFinalText = szFinalText + "Lotus Notes" + Chr(13) + Chr(10)
  412.         End If
  413.         
  414.         If bMS3.Value = True Then
  415.             szFinalText = szFinalText + "Microsoft Mail" + Chr(13) + Chr(10)
  416.         End If
  417.         
  418.         If bMS4.Value = True Then
  419.             szFinalText = szFinalText + "Microsoft Exchange" + Chr(13) + Chr(10)
  420.         End If
  421.         
  422.         If bMS5.Value = True Then
  423.             szFinalText = szFinalText + "POP3/SMTP Driver" + Chr(13) + Chr(10)
  424.         End If
  425.         
  426.         szFinalText = szFinalText + Chr(13) + Chr(10) + szNote
  427.         
  428.         
  429.         MMsg1.NoteText = szFinalText
  430.         MMsg1.Action = ACTION_SENDMSG
  431.         If MMsg1.ErrorNum = 0 Then
  432.             MsgBox "Message has been sent"
  433.         Else
  434.             MsgBox "Error Sending The Mail message"
  435.         End If
  436.     Else
  437.         MsgBox "No Active Session available"
  438.     End If
  439. End Sub
  440. Private Sub Command7_Click()
  441.     MSess1.POPServer = szPOP.Text
  442. End Sub
  443. Private Sub Command8_Click()
  444.     MSess1.SMTPServer = szSMTP.Text
  445. End Sub
  446. Private Sub Form_Load()
  447.     MSess1.Logon = True
  448.     If MSess1.Logon = True Then
  449.         szPOP = MSess1.POPServer
  450.         szSMTP = MSess1.SMTPServer
  451.     End If
  452. End Sub
  453. Private Sub Option2_Click()
  454. End Sub
  455.